`cover` <-
function(rule, data)
{
	# cover
	ct = contingencyTable(rule, data);
	return (ct[["nrc"]] / ct[["nc"]]);
}

